home *** CD-ROM | disk | FTP | other *** search
/ Aminet 39 / Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso / Aminet / util / wb / DirScanner.lha / DirScanner / Rexx / Vols2Path.dsrx < prev   
Encoding:
Text File  |  2000-03-31  |  519 b   |  31 lines
  1. /*
  2.    $VER: Vols2Path.dsrx 1.0 (8.3.00) Copyright (c) Nils Görs.
  3. */
  4.  
  5. options results
  6.  
  7. PARSE ARG DSPort
  8. IF DSPort = "" THEN DSPort = DIRSCANNER.1
  9. address value DSPort
  10.  
  11. SET LOCKGUI 1
  12. volname = "t:Vols2Path."||time('s')||"."||DSport
  13. address command "Assign VOLS >"||volname
  14.  
  15. open(volfile,volname,'r')
  16.  
  17. searchpath = ""
  18.  
  19. line readln(volfile)
  20.  
  21. CLEARPATHS
  22. do while ~eof(volfile)
  23.   line = readln(volfile)
  24.   lp = lastpos('[Mounted]',line)
  25.   if lp ~== 0 then
  26.   ADDPATH strip(delstr(line,lp))":"
  27. end
  28. close(volfile)
  29.  
  30. SET LOCKGUI 0
  31.